library(lpirfs)
library(httr)
library(readxl)
library(dplyr)
library(ggplot2)
library(haven)
library(extrafont)
# Set working directory (replace with your desired path or prompt for user input)
data_dir <- readline(prompt = "Please enter the full path to your data directory: ")
data_file <- file.path(data_dir, "lp_allstd.RData")
load(data_file)
data_dir <- "/Volumes/SD/GSU Dropbox Dropbox/Manish Jha/Research Shared/FinGood/replication/03-TablesFigures/local projection"
# Load the data file (you can specify the filename here)
data_file <- file.path(data_dir, "lp_allstd.RData")
load(data_file)
View(lp_allstd)
View(lp_allstd)
# Load the data file (you can specify the filename here)
data_file <- file.path(data_dir, "lp_allstd_credit.RData")
load(data_file)
View(lp_allstd_credit)
View(lp_allstd_credit)
